﻿Imports System.Xml

Public Class FrmCapturaCompra
    Dim reader As XmlTextReader

    Private Sub AtrasBtn_Click(sender As Object, e As EventArgs) Handles AtrasBtn.Click
        FrmCatalogoCompras.Show()
        _EnTarea = False
        _Editar = False
        Me.Close()
    End Sub

    Private Sub FrmCapturaCompra_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'DataSet_Prod_Serv.Unidades' Puede moverla o quitarla según sea necesario.
        Me.UnidadesTableAdapter.Fill(Me.DataSet_Prod_Serv.Unidades)
        'TODO: esta línea de código carga datos en la tabla 'DataSet_Prod_Serv.Almacenes' Puede moverla o quitarla según sea necesario.
        Me.AlmacenesTableAdapter.Fill(Me.DataSet_Prod_Serv.Almacenes)

    End Sub

    Private Sub btnAgregar_Click(sender As Object, e As EventArgs) Handles btnAgregar.Click
        OpenFileDialog1.ShowDialog()
        If Not OpenFileDialog1.FileName = "Imagen" Then
            reader = New XmlTextReader(OpenFileDialog1.FileName)
            Do While (reader.Read())
                Select Case reader.NodeType
                    Case XmlNodeType.Element 'Mostrar comienzo del elemento.
                        If reader.Name = "cfdi:Concepto" Then
                            Console.Write("<" + reader.Name)
                            If reader.HasAttributes Then 'If attributes exist
                                While reader.MoveToNextAttribute()
                                    'Mostrar valor y nombre del atributo
                                    Console.Write(" {0}='{1}'", reader.Name, reader.Value)
                                End While
                            End If
                            Console.WriteLine(">")
                        End If
                End Select
            Loop
        End If
    End Sub
End Class